home *** CD-ROM | disk | FTP | other *** search
/ U.S. Robotics Connections 2 / US Robotics Connections.iso / pc / sourcepc / palmpc.dir / 00216.ls < prev    next >
Encoding:
Text File  |  1996-03-01  |  549 b   |  24 lines
  1. on mouseDown
  2.   global gCalNum, gSetNum, gLastNum, gOperation, gAnswer
  3.   if gAnswer = 1 then
  4.     set gSetNum to 0
  5.     set gCalNum to 0
  6.     set gAnswer to 0
  7.   end if
  8.   if the number of chars in string(gCalNum) >= 9 then
  9.     exit
  10.   end if
  11.   set lNum to the clickOn - 14
  12.   if (gCalNum = 0) and (lNum = 0) then
  13.     DrawNum()
  14.     exit
  15.   end if
  16.   set lText to EMPTY
  17.   repeat with i = 1 to the number of chars in string(gCalNum)
  18.     put char i of string(gCalNum) after lText
  19.   end repeat
  20.   put lNum after lText
  21.   set gCalNum to value(lText)
  22.   DrawNum()
  23. end
  24.